Gold Medal Software 3

home *** CD-ROM | disk | FTP | other *** search

/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / thtmt227.arj / MATRIX.PPE (.txt) < prev next >

Wrap

PCBoard Programming Language Executable | 1994-02-27 | 43KB | 2,280 lines

;------------------------------------------------------------------------------ ; .ss. ; `²²' ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs. ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,. ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b. ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$ ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²' ; .sS²°$$$²²°"' d²°' ; .$$² .$$' ; $$$.,d$$' ; `²S$$S²' ;------------------------------------------------------------------------------ ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96 ;------------------------------------------------------------------------------ ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON ;------------------------------------------------------------------------------ Boolean BOOLEAN001 Boolean BOOLEAN002 Boolean BOOLEAN003 Date DATE001 Integer INTEGER002 Integer INTEGER003 Integer INTEGER004 Integer INTEGER005 Integer INTEGER006 Integer INTEGER007 Integer INTEGER008 Integer INTEGER009 Integer INTEGER010 Integer INTEGER011 Integer INTEGER012 Integer INTEGER013 Integer INTEGER014 Integer INTEGER015 Integer INTEGER016 Integer INTEGER017 Integer INTEGER018 Integer INTEGER019 Integer INTEGER020 Integer INTEGER021 Integer INTEGER022 Integer INTEGER023 Integer INTEGER024 Integer INTEGER025 Integer INTEGER026 String STRING003 String STRING004 String STRING005 String STRING006 String STRING007 String STRING008 String STRING009 String STRING010 String STRING011 String STRING012 String STRING013 String STRING014 String STRING015 String STRING016 String STRING017 String STRING018 String STRING019 String STRING020 String STRING021 String STRING022 String STRING023 String STRING024 String STRING025 String STRING026 String STRING027 String STRING028 String STRING029 String STRING030 String STRING031 String STRING032 String STRING033 String STRING034 String STRING035 String STRING036 String STRING037 String TSTRING038(10) String STRING039 String STRING040 String STRING041 String STRING042 String STRING043 String STRING044 String STRING045 String STRING046 String STRING047 String STRING048 String STRING049 String STRING050 String STRING051 String STRING052 String STRING053 String STRING054 String STRING055 String STRING056 String STRING057 String STRING058 String STRING059 String STRING060 String STRING061 String STRING062 String STRING063 String STRING064 String STRING065 String STRING066 String STRING067 String STRING068 String STRING069 String STRING070 String STRING071 String STRING072 String STRING073 String STRING074 String STRING075 String STRING076 String STRING077 String STRING078 String STRING079 String STRING080 String STRING081 String STRING082 String STRING083 String STRING084 String STRING085 String STRING086 String STRING087 String STRING088 String STRING089 String STRING090 String STRING091 String STRING092 String STRING093 String STRING094 String STRING095 String STRING096 String STRING097 String STRING098 String STRING099 String STRING100 String STRING101 String STRING102 String STRING103 String TSTRING104(1) String STRING105 String STRING106 String STRING107 String STRING108 String STRING109 String STRING110 String STRING111 String STRING112 String STRING113 String TSTRING114(50,7) String TSTRING115(50) String TSTRING116(50) String TSTRING117(50) String TSTRING118(50) String STRING119 String STRING120 String STRING121 String STRING122 String STRING123 String STRING124 Time TIME001 Time TIME002 ;------------------------------------------------------------------------------ RdUNet PcbNode() WrUNet PcbNode(), "O", "Matrix", "THT", "", "" STRING112 = Chr(48) + Chr(50) + "-" + Chr(50) + Chr(55) + "-" + Chr(57) + Chr(52) STRING091 = Chr(50) + Chr(46) + Chr(50) + Chr(55) STRING102 = Chr(64) + Chr(88) + Chr(48) + Chr(57) + Chr(67) + Chr(111) + Chr(100) + Chr(101) + Chr(100) + Chr(64) + Chr(88) + Chr(48) + Chr(52) + " " + Chr(66) + Chr(121) + Chr(64) + Chr(88) + Chr(48) + "B " + Chr(84) + Chr(104) + Chr(101) + Chr(64) + Chr(88) + Chr(48) + Chr(49) + " " + Chr(77) + Chr(97) + Chr(115) + Chr(116) + Chr(101) + Chr(114) STRING058 = Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(77) + Chr(97) + Chr(116) + Chr(114) + Chr(105) + Chr(120) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + Chr(118) + STRING091 + " " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING112 + Chr(64) + Chr(88) + Chr(48) + Chr(55) BOOLEAN002 = 0 DATE001 = Chr(48) + Chr(51) + "-" + Chr(50) + Chr(55) + "-" + Chr(57) + Chr(52) If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".tmp" If (STRING058 <> Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(45) + Chr(77) + Chr(97) + Chr(116) + Chr(114) + Chr(105) + Chr(120) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(57) + Chr(118) + STRING091 + " " + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(67) + Chr(111) + Chr(109) + Chr(112) + Chr(105) + Chr(108) + Chr(101) + Chr(100) + " " + Chr(111) + Chr(110) + " " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + STRING112 + Chr(64) + Chr(88) + Chr(48) + Chr(55)) Then Delete PPEPath() + PPEName() + Chr(46) + Chr(112) + Chr(112) + Chr(101) PrintLn "Hacked Copy" Delay 30 Else If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".mal")) Delete PPEPath() + PPEName() + String(PcbNode()) + ".mal" TSTRING104(0) = Upper(ReadLine(PCBDat(), 2)) TSTRING104(1) = Upper(ReadLine(PCBDat(), 94)) Cls STRING021 = "" FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 0 FGet 1, INTEGER006 FGet 1, STRING034 FGet 1, STRING035 FGet 1, STRING036 FGet 1, STRING027 FGet 1, INTEGER004 FGet 1, STRING037 FGet 1, INTEGER013 FGet 1, STRING043 FGet 1, STRING064 FGet 1, STRING066 FGet 1, STRING068 FGet 1, STRING065 FGet 1, STRING067 FGet 1, STRING098 FGet 1, STRING069 FGet 1, STRING048 FGet 1, STRING076 FGet 1, STRING077 FGet 1, STRING078 FGet 1, STRING079 FGet 1, STRING080 FGet 1, STRING081 FGet 1, STRING082 FGet 1, STRING075 FGet 1, STRING049 FGet 1, STRING050 FGet 1, STRING060 FGet 1, STRING061 FGet 1, STRING051 FGet 1, STRING052 FGet 1, STRING062 FGet 1, STRING095 FGet 1, STRING094 FGet 1, STRING096 FGet 1, STRING097 FGet 1, STRING099 FGet 1, STRING100 FGet 1, STRING101 FGet 1, INTEGER014 For STRING029 = 1 To INTEGER014 FGet 1, TSTRING038(STRING029) Next FGet 1, STRING108 FGet 1, STRING109 FGet 1, STRING111 FGet 1, STRING008 FGet 1, STRING032 FGet 1, STRING033 FClose 1 PrintLn "@X0ELoading " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(62) + Chr(62) + " @X0EMatrix @X0F!" STRING124 = 0 For STRING124 = 0 To 1 TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "1") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "2") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "3") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "4") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "5") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "6") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "7") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "8") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "9") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "0") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "=") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "-") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), " ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), " ") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "<") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), ">") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "*") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), ")") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "(") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "{") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "}") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "[") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "]") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "~") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "!") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "@") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "#") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "$") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "%") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "^") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "&") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), ":") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), ";") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), ".") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), ",") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "?") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "/") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "|") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "\") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "+") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "=") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "-") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), ".") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "«") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "»") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Ü") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┤") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "│") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╡") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), " ") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Ç") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "É") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "á") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "░") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ü") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "æ") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "í") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "▒") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "é") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Æ") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ó") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "▓") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "â") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ô") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ú") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "│") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ä") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ö") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ñ") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┤") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "à") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ò") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Ñ") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╡") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "å") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "û") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ª") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╢") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ç") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ù") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "º") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╖") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ê") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ÿ") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "¿") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╕") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ë") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Ö") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "⌐") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╣") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "è") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Ü") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "¬") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "║") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ï") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "¢") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "½") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╗") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "î") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "£") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "¼") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╝") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ì") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "¥") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "¡") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╜") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Ä") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "₧") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "«") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╛") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Å") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ƒ") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "»") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┐") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), " ") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "└") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╨") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "α") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "≡") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┴") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╤") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ß") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "±") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┬") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╥") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Γ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "≥") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "├") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╙") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "π") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "≤") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "─") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╘") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Σ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "⌠") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┼") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╒") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "σ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "⌡") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╞") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╓") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "µ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "÷") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╟") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╫") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "τ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "≈") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╚") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╪") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Φ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "°") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╔") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┘") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Θ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "∙") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╩") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "┌") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Ω") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "·") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╦") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "█") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "δ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "√") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╠") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "▄") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "∞") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ⁿ") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "═") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "▌") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "φ") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "²") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╬") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "▐") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "ε") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "■") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "╧") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "▀") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "U") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "V") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "W") AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "X") AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Y") AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), "Z") AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(44)) AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(0)) AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(7)) AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(8)) AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(10)) AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(117)) AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(118)) AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(119)) AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(120)) AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(121)) AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(122)) AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(86)) AnsiPos 28, 1 Print "@X0F/" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(87)) AnsiPos 28, 1 Print "@X0E-" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(88)) AnsiPos 28, 1 Print "@X0F\" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(89)) AnsiPos 28, 1 Print "@X0E|" TSTRING104(STRING124) = Strip(TSTRING104(STRING124), Chr(90)) AnsiPos 28, 1 Print "@X0F/" Next INTEGER021 = Len(TSTRING104(0)) If (INTEGER021 < 2) TSTRING104(0) = Chr(109) + Chr(101) TSTRING104(0) = Right(TSTRING104(0), 2) INTEGER020 = Len(TSTRING104(1)) If (INTEGER020 < 2) TSTRING104(1) = Chr(109) + Chr(101) TSTRING104(1) = Right(TSTRING104(1), 2) STRING106 = TSTRING104(0) + TSTRING104(1) + Chr(65) + Chr(77) If (INTEGER006 == S2I(STRING106, 34)) Goto LABEL001 If (Date() > DATE001) Then PrintLn "@X0FOut of Date Copy of THT-MATRIX v2.27" Delay 30 Else :LABEL001 FOpen 1, PPEPath() + "CHECK.cnf", 0, 0 FGet 1, STRING063 FGet 1, STRING019 FGet 1, STRING020 FGet 1, STRING018 FClose 1 STRING030 = STRING043 :LABEL002 BOOLEAN002 = 0 If (INTEGER006 == S2I(STRING106, 34)) Goto LABEL003 If (Date() > DATE001) Then PrintLn "@X0FOut of Date Copy of THT-MATRIX v2.27" Delay 30 Else :LABEL003 BOOLEAN001 = 0 STRING043 = STRING030 StartDisp 1 :LABEL004 If (BOOLEAN001) Goto LABEL077 If (Upper(STRING043) == "D") Goto LABEL008 If (Upper(STRING043) == "L") Goto LABEL006 If (Upper(STRING043) == "B") Then :LABEL005 STRING083 = Random(5) If (STRING083 == "1") Goto LABEL006 If (STRING083 == "2") Goto LABEL008 If (STRING083 == "3") Goto LABEL006 If (STRING083 == "4") Goto LABEL008 If (STRING083 == "5") Goto LABEL006 If (STRING083 == "0") Goto LABEL008 If (STRING083 < "0") Goto LABEL005 Endif :LABEL006 FClose 1 FOpen 1, PPEPath() + PPEName() + "1.cfg", 2, 0 FGet 1, INTEGER018 STRING043 = "L" :LABEL007 INTEGER023 = Random(INTEGER018 + 1) If (INTEGER023 == 0) Goto LABEL007 If (INTEGER023 > INTEGER018) Goto LABEL007 For STRING029 = 1 To INTEGER023 FGet 1, STRING073 FGet 1, INTEGER015 FGet 1, INTEGER016 FGet 1, STRING055 FGet 1, STRING074 Next FClose 1 Goto LABEL014 :LABEL008 DefColor Cls STRING054 = "" :LABEL009 DefColor FreshLine DispFile PPEPath() + "menu.ans", 4 + 2 AnsiPos 1, 1 Print STRING058 + " " + STRING102 If (INTEGER006 == S2I(STRING106, 34)) Goto LABEL010 If (Date() > DATE001) Then PrintLn "@X0FOut of Date Copy of THT-MATRIX v2.27" Delay 30 Else :LABEL010 INTEGER015 = 23 :LABEL011 If (BOOLEAN001) Goto LABEL013 :LABEL012 DefColor Inc INTEGER015 AnsiPos 1, INTEGER015 InputStr STRING062 + String(PcbNode()) + ">_", STRING056, "", 13, Mask_Ascii(), 1024 + 8 If ((STRING056 == "DIR") || (STRING056 == "DIR/P")) Goto LABEL009 If (STRING056 == "DIR/W") Goto LABEL013 If (STRING056 == "REGIT") Goto LABEL079 If (STRING056 == "FORMAT") Then FreshLine DispFile PPEPath() + "format", 0 Goto LABEL012 Endif If (STRING056 == "") Then STRING054 = ScrText(1, INTEGER015, 15, 1) FreshLine Inc INTEGER015 Goto LABEL012 Endif If (STRING056 == "VER") Then FreshLine DispFile PPEPath() + "VER", 0 Goto LABEL012 Endif If (STRING056 == "HELP") Then FreshLine DispFile PPEPath() + "help", 0 Goto LABEL012 Endif If (STRING056 == "CHAT") Then Goto LABEL076 Endif If (STRING056 == "WHO") Then Cls FreshLine Call PPEPath() + "who.ppe" AnsiPos 1, 20 Wait Cls DefColor FreshLine Goto LABEL012 Endif If (STRING056 == "CLS") Then Cls INTEGER015 = 0 Goto LABEL012 Endif If (STRING056 == "SYSTEM") Then Goto LABEL018 Endif Select Case (STRING056) Case "CHECK" STRING056 = 2 Case "APPLY" STRING056 = 3 If (((STRING056 == "LOGOFF") || (STRING056 == "G")) || (STRING056 == "BYE")) Then Goto LABEL070 Endif If (STRING056 == "FEEDBACK") Then Goto LABEL072 Endif If ((STRING056 == "PAGE") && (STRING098 == YesChar())) Then Goto LABEL076 Else Inc INTEGER015 Print STRING054 FreshLine PrintLn "@X0FUnknown Command" + " " + """" + STRING056 + """" Newline Goto LABEL012 Endif Goto LABEL011 :LABEL013 DispFile PPEPath() + "menuw.ans", 4 + 2 Goto LABEL012 :LABEL014 STRING057 = 1 STRING056 = "" STRING054 = "" DefColor Cls DispFile PPEPath() + STRING073, 4 AnsiPos 1, 1 Print STRING058 + " " + STRING102 If (INTEGER006 == S2I(STRING106, 34)) Goto LABEL015 If (Date() > DATE001) Then PrintLn "@X0FOut of Date Copy of THT-MATRIX v2.27" Delay 30 Goto LABEL084 Endif :LABEL015 INTEGER019 = INTEGER016 AnsiPos INTEGER015, INTEGER016 Print STRING064 Inc INTEGER016 Inc STRING057 AnsiPos INTEGER015, INTEGER016 Print STRING066 Inc INTEGER016 Inc STRING057 AnsiPos INTEGER015, INTEGER016 Print STRING068 Inc INTEGER016 Inc STRING057 AnsiPos INTEGER015, INTEGER016 Print STRING065 Inc INTEGER016 Inc STRING057 AnsiPos INTEGER015, INTEGER016 Print STRING067 If ("" == YesChar()) Then Inc INTEGER016 Inc STRING057 AnsiPos INTEGER015, INTEGER016 Print "" Endif If (STRING098 == YesChar()) Then Inc INTEGER016 Inc STRING057 AnsiPos INTEGER015, INTEGER016 Print STRING069 Endif If (STRING061 == YesChar()) Then Inc INTEGER016 Inc STRING057 AnsiPos INTEGER015, INTEGER016 Print STRING051 Endif INTEGER016 = INTEGER019 KbdStuff Chr(32) :LABEL016 If (BOOLEAN001) Goto LABEL018 STRING053 = Inkey() STRING053 = Upper(STRING053) If (STRING053 == Chr(13)) Then STRING056 = INTEGER016 - INTEGER019 Print STRING056 If (STRING056 == 1) Goto LABEL018 If (STRING056 == 2) Goto LABEL019 If (STRING056 == 3) Goto LABEL019 If (STRING056 == 4) Goto LABEL072 If (STRING056 == 5) Goto LABEL070 If ((STRING056 == 6) && ("" == YesChar())) Goto LABEL071 If (((STRING056 == 6) && (STRING098 == YesChar())) && (STRING061 == NoChar())) Goto LABEL076 If ((((STRING056 == 6) && (STRING098 == YesChar())) && (STRING061 == YesChar())) && ("" == NoChar())) Goto LABEL076 If ((((STRING056 == 7) && (STRING098 == YesChar())) && (STRING061 == YesChar())) && ("" == NoChar())) Goto LABEL079 If (((STRING056 == 7) && (STRING098 == YesChar())) && (STRING061 == YesChar())) Goto LABEL076 If ((STRING056 == 7) && (STRING098 == NoChar())) Goto LABEL079 If ((STRING056 == 7) && (STRING061 == YesChar())) Goto LABEL079 If (((STRING056 == 6) && (STRING098 == NoChar())) && ("" == NoChar())) Goto LABEL079 If ((STRING056 == 7) && (STRING098 == YesChar())) Goto LABEL079 If (STRING056 == 8) Goto LABEL079 Endif If (((((((((STRING053 == Chr(32)) || (STRING053 == "UP")) || (STRING053 == "DOWN")) || (STRING053 == "LEFT")) || (STRING053 == "RIGHT")) || (STRING053 == "A")) || (STRING053 == "a")) || (STRING053 == "Z")) || (STRING053 == "z")) Then AnsiPos INTEGER015, INTEGER016 If (INTEGER016 == INTEGER019) Then Print STRING054 AnsiPos INTEGER015, INTEGER016 Goto LABEL017 Endif AnsiPos INTEGER015, INTEGER016 - 1 Print STRING054 :LABEL017 If (INTEGER016 == INTEGER019 + STRING057) INTEGER016 = INTEGER016 - STRING057 AnsiPos INTEGER015, INTEGER016 STRING054 = ScrText(INTEGER015, INTEGER016, STRING055, 1) Print STRING075 + ScrText(INTEGER015, INTEGER016, STRING055, 0) Inc INTEGER016 Endif Goto LABEL016 :LABEL018 INTEGER002 = 0 DefColor Cls If (STRING043 == "L") Then DispFile PPEPath() + PPEName() + ".dsp", 0 AnsiPos 6, 4 Endif InputStr STRING027, STRING021, 0, 13, Mask_Pwd(), 1024 + 1 + 8 Case STRING034 BOOLEAN002 = 1 Case STRING035 AdjTime INTEGER013 BOOLEAN002 = 1 Case STRING036 BOOLEAN002 = 1 Case Else INTEGER002 = INTEGER002 + 1 If (INTEGER002 > STRING060) Hangup Goto LABEL002 End Select :LABEL019 If (INTEGER006 == S2I(STRING106, 34)) Goto LABEL020 If (Date() > DATE001) Then PrintLn "@X0FOut of Date Copy of THT-MATRIX v2.27" Delay 30 Else :LABEL020 RdUNet PcbNode() WrUNet PcbNode(), "O", "Matrix", "THT", "", "" STRING105 = ReadLine(PCBDat(), 94) STRING093 = ReadLine(PCBDat(), 35) DefColor If (STRING043 == "L") Then If (BOOLEAN002 == 0) Cls If (BOOLEAN002 == 0) DispFile PPEPath() + PPEName() + ".dsp", 0 AnsiPos 6, 4 Print Space(40) AnsiPos 7, 4 INTEGER022 = GetY() Else FreshLine Endif STRING044 = "" InputStr STRING076, STRING044, "", 30, Mask_Ascii(), 8 If (STRING044 == "") Goto LABEL002 Tokenize STRING044 If (TokCount() <> 1) Then GetToken STRING040 GetToken STRING041 Else If (STRING043 == "L") Then AnsiPos 7, INTEGER022 + 1 Inc INTEGER022 Else FreshLine Endif STRING045 = "" InputStr STRING077, STRING045, "", 30, Mask_Ascii(), 8 Tokenize STRING045 If (TokCount() <> 1) Then GetToken STRING046 GetToken STRING047 Endif Endif FClose 1 FOpen 1, STRING093, 0, 0 :LABEL021 If (Ferr(1)) Goto LABEL024 FGet 1, STRING031 If (STRING031 == "") Goto LABEL023 If ((((((STRING031 == STRING044) || (STRING031 == STRING045)) || (STRING031 == STRING040)) || (STRING031 == STRING041)) || (STRING046 == STRING031)) || (STRING047 == STRING031)) Then If (STRING043 == "L") Then AnsiPos 7, INTEGER022 + 4 PrintLn "@X0C" + STRING031 + STRING032 Goto LABEL022 Endif FreshLine PrintLn "@X0C" + STRING031 + STRING032 :LABEL022 FreshLine Wait FClose 1 Goto LABEL019 Endif :LABEL023 Goto LABEL021 :LABEL024 FClose 1 If (TokCount() == 1) Then STRING071 = STRING044 + " " + STRING045 Else STRING071 = STRING044 Endif INTEGER017 = U_RecNum(STRING071) If (INTEGER017 <> -1) Then Goto LABEL052 Else If (STRING043 == "L") Then AnsiPos 7, 7 If (STRING108 == YesChar()) Then InputStr STRING111, STRING110, "", 30, Mask_Ascii(), 8 + 1 If (STRING110 <> STRING109) Then Goto LABEL002 Endif Endif FreshLine PromptStr 53, STRING070, 1, "CR", 0 + 8 If (STRING070 == "C") Goto LABEL026 If (STRING070 == "R") Goto LABEL002 Else FreshLine If (STRING108 == YesChar()) Then InputStr STRING111, STRING110, "", 30, Mask_Ascii(), 8 + 1 If (STRING110 <> STRING109) Then Goto LABEL002 Endif Endif FreshLine PromptStr 53, STRING070, 1, "CR", 0 + 8 If (STRING070 == "C") Goto LABEL026 If (STRING070 == "R") Goto LABEL002 Endif If ((STRING056 == 2) && (STRING043 == "L")) Then AnsiPos 7, 7 PrintLn "@X0CYou Are not a USER " AnsiPos 7, 8 If (STRING108 == YesChar()) Then InputStr STRING111, STRING110, "", 30, Mask_Ascii(), 8 + 1 If (STRING110 <> STRING109) Goto LABEL002 Endif STRING072 = YesChar() If (STRING108 == YesChar()) AnsiPos 7, 9 InputYN "@X0CDo you Wish to Apply", STRING072, "" If (STRING072 == YesChar()) Then Goto LABEL026 Goto LABEL025 Endif Goto LABEL002 Endif :LABEL025 If ((STRING056 == 2) && (STRING043 <> "L")) Then If (STRING108 == YesChar()) Then FreshLine InputStr STRING111, STRING110, "", 30, Mask_Ascii(), 8 + 1 If (STRING110 <> STRING109) Goto LABEL002 Endif FreshLine PrintLn "@X0CYou Are not a USER " FreshLine STRING072 = YesChar() InputYN "@X0CDo you Wish to Apply", STRING072, "" If (STRING072 == YesChar()) Then Goto LABEL026 Goto LABEL026 Endif Goto LABEL002 Endif :LABEL026 If (INTEGER006 == S2I(STRING106, 34)) Goto LABEL027 If (Date() > DATE001) Then PrintLn "@X0FOut of Date Copy of THT-MATRIX v2.27" Delay 30 Goto LABEL084 Endif :LABEL027 RdUNet PcbNode() WrUNet PcbNode(), "S", STRING071, "THT", PPEName(), "" AdjTime 5 DispFile PPEPath() + PPEName() + ".NEW", 0 STRING056 = 3 FCreate 5, PPEPath() + PPEName() + String(PcbNode()) + ".tmp", 1, 0 :LABEL028 INTEGER015 = 3 DefColor INTEGER009 = ReadLine(PCBDat(), 265) STRING090 = INTEGER009 STRING039 = "" AnsiPos 13, INTEGER015 InputStr "_", STRING039, "", 12, Mask_Pwd(), 8 + 1 AnsiPos 4, 20 Print Space(76) INTEGER010 = Len(STRING039) If (INTEGER010 < INTEGER009) Then AnsiPos 5, 20 ClrEol PrintLn "Password has to be " + STRING090 + " Charcters Long" Goto LABEL028 Endif If (Exist(PPEPath() + "pwdcan")) FOpen 1, PPEPath() + "pwdcan", 0, 0 :LABEL029 If (Ferr(1)) Goto LABEL030 FGet 1, STRING042 If (STRING042 == "") Goto LABEL030 If (STRING042 == STRING039) Then AnsiPos 5, 20 PrintLn "@X0F" + STRING039 + STRING033 FreshLine Wait FClose 1 Goto LABEL028 Endif Goto LABEL029 :LABEL030 FClose 1 For STRING029 = 3 To 8 If (Right(STRING039, STRING029) == Right(STRING071, STRING029)) Then AnsiPos 4, 20 DispText 709, 2048 Goto LABEL028 Endif If (Left(STRING039, STRING029) == Left(STRING071, STRING029)) Then AnsiPos 4, 20 DispText 709, 2048 Goto LABEL028 Endif If (Left(STRING039, STRING029) == Right(STRING071, STRING029)) Then AnsiPos 4, 20 DispText 709, 2048 Goto LABEL028 Endif If (Right(STRING039, STRING029) == Left(STRING071, STRING029)) Then AnsiPos 4, 20 DispText 709, 2048 Goto LABEL028 Endif Next Inc INTEGER015 AnsiPos 13, INTEGER015 InputStr "_", STRING089, "", 12, Mask_Pwd(), 8 + 1 If (STRING039 <> STRING089) Then AnsiPos 5, 20 ClrEol PrintLn STRING095 Goto LABEL028 Endif FPut 5, Chr(13) + Chr(10) FPut 5, Chr(13) + Chr(10) FPutLn 5, STRING039 FPutLn 5, STRING089 Inc INTEGER015 :LABEL031 STRING084 = "" AnsiPos 13, INTEGER015 InputStr "_", STRING084, "", 24, Mask_Ascii(), 4 If (STRING084 == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL031 Endif FPutLn 5, STRING084 Inc INTEGER015 :LABEL032 STRING085 = "" AnsiPos 13, INTEGER015 InputStr "_", STRING085, "", 15, "1234567890-", 4 If (STRING085 == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL032 Endif FPutLn 5, STRING085 Inc INTEGER015 :LABEL033 STRING086 = "" AnsiPos 14, INTEGER015 InputStr "_", STRING086, "", 15, "1234567890-", 4 If (STRING086 == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL033 Endif FPutLn 5, STRING086 Inc INTEGER015 :LABEL034 STRING088 = "" AnsiPos 2, INTEGER015 InputStr STRING101, STRING088, "", 20, Mask_Ascii(), 4 If (STRING088 == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL034 Endif FPutLn 5, STRING088 Inc INTEGER015 :LABEL035 STRING087 = "" AnsiPos 29, INTEGER015 InputYN "", STRING087, 1 If (STRING087 == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL035 Endif FPutLn 5, STRING087 AnsiPos 78, 11 SaveScrn Cls GetToken STRING113 If (Exist(ReadLine(PCBDat(), 45))) Goto LABEL036 Newline Print "@X0CError reading PCBPROT.DAT! Aborting ... @X07" Delay 50 Log "Error reading PCBPROT.DAT!", 0 FreshLine End Goto LABEL039 :LABEL036 STRING123 = "N" FOpen 1, ReadLine(PCBDat(), 45), 0, 0 :LABEL037 If (Ferr(1)) Goto LABEL038 FGet 1, STRING119 If (Len(STRING119)) Then STRING119 = Replace(STRING119, Chr(32), Chr(255)) Inc INTEGER025 STRING119 = Replace(STRING119, ",", ";") Tokenize STRING119 While (TokCount() > 0) Do Inc INTEGER024 GetToken TSTRING114(INTEGER025, INTEGER024) EndWhile TSTRING115(INTEGER025) = TSTRING114(INTEGER025, 1) TSTRING117(INTEGER025) = TSTRING114(INTEGER025, 2) TSTRING118(INTEGER025) = Replace(TSTRING114(INTEGER025, 4), Chr(255), Chr(32)) TSTRING116(INTEGER025) = TSTRING114(INTEGER025, 5) Endif INTEGER024 = 0 Goto LABEL037 :LABEL038 FClose 1 If (Right(STRING096, (1 <> "\"))) STRING096 = STRING096 + "\" STRING121 = STRING096 + "PCBS" STRING122 = STRING096 + "PCBR" If (Strip(STRING113, Chr(32)) <> "") Then STRING113 = Strip(STRING113, Chr(32)) For STRING029 = 1 To INTEGER025 STRING120 = STRING120 + TSTRING115(STRING029) Next INTEGER026 = InStr(STRING120, STRING113) If (STRING113 == "N") Goto LABEL045 Gosub LABEL043 Endif Gosub LABEL040 :LABEL039 Goto LABEL045 :LABEL040 Newline PrintLn "@POS:10@@X70┌────────────────────────────────────────────────────────@X7F┐@X07" PrintLn "@POS:10@@X70│ @X7BP R O T O C O L S A V A I L A B L E@POS:67@@X7F│@X07" PrintLn "@POS:10@@X70└@X7F────────────────────────────────────────────────────────┘@X07" Newline PrintLn "@POS:10@@X70┌@X7F────────────────────────────────────────────────────────┐@X07" For STRING029 = 1 To INTEGER025 If (((TSTRING117(STRING029) <> "I") && !Exist(STRING121 + TSTRING115(STRING029) + ".BAT")) && !Exist(STRING122 + TSTRING115(STRING029) + ".BAT")) BOOLEAN003 = 1 If (!BOOLEAN003 || (TSTRING115(STRING029) == "N")) Then STRING120 = STRING120 + TSTRING115(STRING029) If (TSTRING115(STRING029) == U_Trans) Then PrintLn "@POS:10@@X70│ @XF4=> @X71(@X7E" + TSTRING115(STRING029) + "@X71) " + TSTRING118(STRING029) + "@POS:67@@X7F│@X07" Goto LABEL041 Endif PrintLn "@POS:10@@X70│ @X71(@X7E" + TSTRING115(STRING029) + "@X71) " + TSTRING118(STRING029) + "@POS:67@@X7F│@X07" Endif :LABEL041 BOOLEAN003 = 0 Next PrintLn "@POS:10@@X70└────────────────────────────────────────────────────────@X7F┘@X07" PromptStr 198, STRING123, 1, STRING120, 2 + 4 + 8 + 128 + 256 + 8192 If (Len(STRING123) && (STRING123 <> U_Trans)) Then STRING113 = Left(STRING123, 1) If (STRING113 == "N") Goto LABEL045 INTEGER026 = InStr(STRING120, STRING113) Goto LABEL043 Goto LABEL042 Endif :LABEL042 Return :LABEL043 If (((TSTRING117(INTEGER026) <> "I") && !Exist(STRING121 + TSTRING115(INTEGER026) + ".BAT")) && !Exist(STRING122 + TSTRING115(INTEGER026) + ".BAT")) BOOLEAN003 = 1 If ((STRING113 == TSTRING115(INTEGER026)) && !BOOLEAN003) Then If (TSTRING116(INTEGER026) == YesChar()) Then If (ErrCorrect()) Goto LABEL044 Newlines 2 PrintLn "@X0CProtocol Unavailable - Modem Type Wrong!" End Endif :LABEL044 Else Return Endif :LABEL045 If (Strip(STRING113, Chr(32)) <> "") Then Endif FPutLn 5, STRING113 RestScrn If (Psa(3)) Then Inc INTEGER015 Inc INTEGER015 AnsiPos 1, INTEGER015 DispFile PPEPath() + PPEName() + "1.NEW", 0 Inc INTEGER015 Inc INTEGER015 :LABEL046 AnsiPos 17, INTEGER015 InputStr "_", U_Addr(0), "", 25, Mask_Ascii(), 4 If (U_Addr(0) == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL046 Endif FPutLn 5, U_Addr(0) Inc INTEGER015 AnsiPos 17, INTEGER015 InputStr "_", U_Addr(1), "", 25, Mask_Ascii(), 4 FPutLn 5, U_Addr(1) Inc INTEGER015 :LABEL047 AnsiPos 8, INTEGER015 InputStr "_", U_Addr(2), "", 15, Mask_Ascii(), 4 If (U_Addr(2) == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL047 Endif FPutLn 5, U_Addr(2) Inc INTEGER015 :LABEL048 AnsiPos 9, INTEGER015 InputStr "_", U_Addr(3), "", 15, Mask_Ascii(), 4 If (U_Addr(3) == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL048 Endif FPutLn 5, U_Addr(3) Inc INTEGER015 :LABEL049 AnsiPos 12, INTEGER015 InputStr "_", U_Addr(4), "", 15, "1234567890-", 4 If (U_Addr(4) == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL049 Endif FPutLn 5, U_Addr(4) Inc INTEGER015 :LABEL050 AnsiPos 11, INTEGER015 InputStr "_", U_Addr(5), "", 15, Mask_Ascii(), 4 If (U_Addr(5) == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL050 Endif FPutLn 5, U_Addr(5) Endif If (Psa(2)) Then Inc INTEGER015 AnsiPos 1, INTEGER015 DispFile PPEPath() + PPEName() + ".als", 0 :LABEL051 U_Ver = "" AnsiPos 2, INTEGER015 InputStr STRING100, U_Ver, "", 25, Mask_Ascii(), 4 If (U_Ver == "") Then AnsiPos 5, 20 ClrEol Gosub LABEL078 Goto LABEL051 Endif FPutLn 5, U_Ver Endif FClose 5 Goto LABEL081 Goto LABEL052 Goto LABEL002 Endif :LABEL052 GetAltUser INTEGER017 If (U_Sec == "0") Then AnsiPos 5, 20 PrintLn STRING094 WaitFor "shit", STRING028, 3 Hangup Endif :LABEL053 Select Case (STRING043) Case "L" AnsiPos 7, 3 Print STRING008 + STRING105 AnsiPos 7, INTEGER022 + 1 Print " " AnsiPos 7, INTEGER022 + 1 InputStr STRING097, STRING039, "", 12, Mask_Pwd(), 8 + 1 Case "D" FreshLine InputStr STRING097, STRING039, "", 12, Mask_Pwd(), 8 + 1 End Select If ((STRING039 <> U_Pwd) && (STRING043 == "L")) Then AnsiPos 7, 8 DispText 92, 2048 INTEGER003 = INTEGER003 + 1 If (INTEGER003 == 3) Then If (ReadLine(PCBDat(), 196) == -1) Then DispText 595, 2048 + 64 PromptStr 596, STRING072, 1, "YyNy", 4 + 8 If (STRING072 == YesChar()) Then STRING107 = YesChar() Goto LABEL073 Goto LABEL054 Endif Hangup :LABEL054 Goto LABEL055 Endif Hangup Endif :LABEL055 Goto LABEL053 Endif If ((STRING039 <> U_Pwd) && (STRING043 <> "L")) Then FreshLine DispText 92, 2048 INTEGER003 = INTEGER003 + 1 If (INTEGER003 == 3) Then If (ReadLine(PCBDat(), 196) == -1) Then DispText 595, 0 + 64 PromptStr 596, STRING072, 1, "YyNy", 4 + 8 If (STRING072 == YesChar()) Then STRING107 = YesChar() Goto LABEL073 Goto LABEL056 Endif Hangup :LABEL056 Goto LABEL057 Endif Hangup Endif :LABEL057 Goto LABEL053 Endif If ((STRING056 == 6) && (U_Sec < STRING048)) Then Goto LABEL081 Endif If (STRING063 == NoChar()) Goto LABEL068 If (U_Sec >= STRING048) Goto LABEL068 INTEGER007 = 0 INTEGER008 = 0 FOpen 1, PPEPath() + "tht-info.cfg", 0, 0 FGet 1, STRING003 STRING004 = STRING003 FClose 1 Tokenize U_Name() If (TokCount() == 3) Then GetToken STRING015 GetToken STRING016 GetToken STRING017 STRING015 = Strip(STRING015, " ") STRING017 = Strip(STRING017, " ") STRING015 = Strip(STRING015, ".") STRING017 = Strip(STRING017, ".") STRING015 = Left(STRING015, 3) STRING016 = Right(STRING017, 4) Else GetToken STRING015 GetToken STRING016 STRING015 = Strip(STRING015, " ") STRING016 = Strip(STRING016, " ") STRING015 = Strip(STRING015, ".") STRING016 = Strip(STRING016, ".") STRING015 = Left(STRING015, 3) STRING016 = Right(STRING016, 4) Endif If (Exist(PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".vot")) Then FOpen 2, PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".vot", 0, 0 :LABEL058 If (Ferr(2)) Goto LABEL059 FGet 2, STRING010 Tokenize STRING010 If (TokCount() == 4) Then GetToken STRING011 GetToken STRING012 GetToken STRING013 GetToken STRING014 If (STRING014 == "Y") Inc INTEGER007 If (STRING014 == "N") Inc INTEGER008 If (INTEGER007 >= STRING019) Goto LABEL059 If (INTEGER008 >= STRING020) Goto LABEL059 Endif If (TokCount() == 3) Then GetToken STRING011 GetToken STRING012 GetToken STRING013 If (STRING013 == "Y") Inc INTEGER007 If (STRING013 == "N") Inc INTEGER008 If (INTEGER007 >= STRING019) Goto LABEL059 If (INTEGER008 >= STRING020) Goto LABEL059 Endif If (TokCount() == 2) Then GetToken STRING011 GetToken STRING012 If (STRING012 == "Y") Inc INTEGER007 If (STRING012 == "N") Inc INTEGER008 If (INTEGER007 >= STRING019) Goto LABEL059 If (INTEGER008 >= STRING020) Goto LABEL059 Endif Goto LABEL058 :LABEL059 FClose 2 STRING006 = INTEGER007 STRING007 = INTEGER008 AnsiPos 7, 4 PrintLn Space(43) AnsiPos 7, 5 PrintLn Space(43) AnsiPos 7, 6 PrintLn Space(43) AnsiPos 7, 7 PrintLn Space(43) AnsiPos 7, 8 PrintLn Space(43) AnsiPos 7, 5 PrintLn "" + U_Name() + "@POS:25@" + "Your Current Stats" AnsiPos 7, 6 PrintLn "You Need " + STRING019 + " Votes to gain Access to the Board" AnsiPos 7, 7 PrintLn " Votes for You> " + STRING006 AnsiPos 7, 8 PrintLn " Votes against You> " + STRING007 Newlines 4 If (INTEGER007 >= STRING019) Goto LABEL060 If (INTEGER008 >= STRING020) Goto LABEL064 Goto LABEL068 :LABEL060 U_Sec = STRING018 PutUser AnsiPos 6, 14 PrintLn "@X0EYou have been accepted as a @X0CUSER @X0Eon this Board@X07" Newlines 4 Wait FClose 1 FClose 2 FOpen 1, PPEPath() + "apps\waiting.app", 2, 0 FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0 :LABEL061 If (Ferr(1)) Goto LABEL063 FGet 1, STRING005 If (STRING005 == "") Goto LABEL063 If (STRING005 == U_Name()) Then PrintLn Goto LABEL062 Endif FPutLn 2, STRING005 :LABEL062 Goto LABEL061 :LABEL063 FClose 1 FClose 2 Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app" Delete PPEPath() + "APPS\waiting.tmp" If (Exist(PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".vot")) Delete PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".vot" If (Exist(PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".grp")) Delete PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".grp" If (Exist(PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".cmt")) Delete PPEPath() + "apps\" + STRING015 + "_" + STRING016 + ".cmt" For STRING029 = STRING004 To 1 Step -1 If (Exist(PPEPath() + "apps\" + STRING015 + "_" + STRING016 + "." + STRING029)) Delete PPEPath() + "apps\" + STRING015 + "_" + STRING016 + "." + STRING029 Next Goto LABEL068 :LABEL064 AnsiPos 8, 9 PrintLn "@X0CSorry but your Application has been Refused@X8C!!!!@X07" Newlines 5 Wait FClose 1 FClose 2 FOpen 1, PPEPath() + "apps\waiting.app", 2, 0 FAppend 2, PPEPath() + "apps\waiting.tmp", 1, 0 :LABEL065 If (Ferr(1)) Goto LABEL067 FGet 1, STRING005 If (STRING005 == "") Goto LABEL067 If (STRING005 == U_Name()) Then PrintLn Goto LABEL066 Endif FPutLn 2, STRING005 :LABEL066 Goto LABEL065 :LABEL067 FClose 2 FClose 1 Copy PPEPath() + "APPS\waiting.tmp", PPEPath() + "APPS\waiting.app" Delete PPEPath() + "APPS\waiting.tmp" DelUser U_Sec = "0" PutUser Hangup Endif :LABEL068 If (STRING063 == NoChar()) Goto LABEL069 If (U_Sec < STRING048) Then AnsiPos 8, 9 PrintLn STRING079 Newlines 7 Wait Goto LABEL002 Endif :LABEL069 If (STRING043 == "L") Then AnsiPos 7, 4 If (BOOLEAN002 == 0) PrintLn Space(47) AnsiPos 7, 4 If (BOOLEAN002 == 0) PrintLn STRING078 AnsiPos 7, 5 If (BOOLEAN002 == 0) PrintLn Space(47) AnsiPos 7, 6 If (BOOLEAN002 == 0) PrintLn Space(47) AnsiPos 7, 7 If (BOOLEAN002 == 0) PrintLn Space(47) AnsiPos 7, 8 If (BOOLEAN002 == 0) PrintLn Space(47) AnsiPos 7, 6 If (BOOLEAN002 == 0) PrintLn STRING080 + " " + STRING034 + "@X07" AnsiPos 20, 20 Wait Goto LABEL081 Else FreshLine If (BOOLEAN002 == 0) PrintLn STRING078 FreshLine If (BOOLEAN002 == 0) PrintLn STRING080 + " " + STRING034 + "@X07" Newline Wait Goto LABEL081 :LABEL070 DefColor Cls PrintLn "@X0EGoodbye from " + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(60) + Chr(60) + Chr(64) + Chr(88) + Chr(48) + Chr(69) + Chr(84) + Chr(72) + Chr(84) + Chr(64) + Chr(88) + Chr(48) + Chr(67) + Chr(62) + Chr(62) + "@X0F Matrix!" Log " User logged out via MATRIX at " + Time(), 0 Hangup :LABEL071 STRING009 = YesChar() Gosub LABEL019 :LABEL072 RdUNet PcbNode() WrUNet PcbNode(), "E", "Unknown", "THT", PPEName(), "" DefColor Cls If (INTEGER014 == 1) Then KbdStuff "1" + Chr(13) Else DispFile PPEPath() + "sysops.dsp", 0 PrintLn " @X08 D@X07e@X0Ffault will Be (@X071@X08)" For STRING029 = 1 To INTEGER014 PrintLn "@X0F" + STRING029 + "@X08. @X0F" + TSTRING038(STRING029) Next Endif STRING022 = 1 Input "@X0F[@X0C@SYSTIME@@X0F] @X0EMATRIX Mail Command? _", STRING022 If ((STRING022 < 1) || (STRING022 > INTEGER014)) Goto LABEL072 Newlines 2 STRING023 = "" InputStr STRING049, STRING023, "", 20, Mask_Ascii(), 2 + 8 If (STRING023 == "") Goto LABEL002 STRING024 = "" Newlines 2 InputStr STRING050, STRING024, "", 20, Mask_Ascii(), 2 If (STRING024 == "") Goto LABEL002 :LABEL073 If (STRING107 == YesChar()) Then STRING022 = "1" STRING023 = STRING071 STRING024 = "Forgot My Passsword" Endif Cls RdUNet PcbNode() WrUNet PcbNode(), "E", STRING023, "THT", PPEName(), "" STRING059 = ReadLine(PCBDat(), 109) DispFile PPEPath() + "message.dsp", 0 AnsiPos 3, 2 PrintLn "@X04To : " + "@X0E" + """" + TSTRING038(STRING022) + """" AnsiPos 32, 2 PrintLn "@X0F" + STRING059 AnsiPos 3, 3 PrintLn "@X04From @X0F: " + """" + STRING023 + """" AnsiPos 32, 3 PrintLn "@X0ESubject @X0F: " + STRING024 FClose 1 FAppend 1, PPEPath() + PPEName() + String(PcbNode()) + ".mal", 1, 0 BOOLEAN001 = 0 AnsiPos 1, 6 INTEGER012 = 6 :LABEL074 If (BOOLEAN001) Goto LABEL075 STRING025 = "" InputStr "_", STRING025, "", 78, Mask_Ascii(), 512 + 256 Inc INTEGER012 If (INTEGER012 >= 23) Then Gosub LABEL080 Endif If (Upper(STRING025) == "/A") Then BOOLEAN001 = 1 FClose 1 Endif If (Upper(STRING025) == "/S") Then BOOLEAN001 = 1 PrintLn "Sending Message to " + TSTRING038(STRING022) FClose 1 Message INTEGER004, TSTRING038(STRING022), STRING023, STRING024, "R", 0, 0, 0, PPEPath() + PPEName() + String(PcbNode()) + ".mal" Endif FPutLn 1, STRING025 Goto LABEL074 :LABEL075 If (STRING107 == YesChar()) Hangup Goto LABEL002 :LABEL076 TIME001 = ReadLine(PCBDat(), 189) TIME002 = ReadLine(PCBDat(), 190) If ((Time() > TIME001) || (Time() < TIME002)) Then INTEGER003 = INTEGER003 + 1 If (INTEGER003 > STRING060) Then PrintLn PrintLn STRING037 Hangup Endif DefColor If (STRING043 == "L") Then Cls DispFile PPEPath() + PPEName() + ".dsp", 0 AnsiPos 7, 4 STRING026 = "" Input STRING082, STRING026 If (STRING026 == "") Goto LABEL002 RdUNet PcbNode() WrUNet PcbNode(), "P", "UnKnown", "THT", PPEName(), "" PageOn AnsiPos 7, 6 Print "Page ends in 10 seconds" Else FreshLine STRING026 = "" Input STRING082, STRING026 If (STRING026 == "") Goto LABEL002 PageOn FreshLine Print "Page ends in 10 seconds" Endif For STRING029 = 1 To 10 Print "." Sound 110 Delay 2 Sound 220 Delay 2 Sound 440 Delay 2 Sound 880 Delay 2 Sound 110 Delay 2 Sound 220 Delay 2 Sound 440 Delay 2 Sound 880 Delay 2 Sound 0 Delay 10 If (Inkey() == " ") Then Chat Goto LABEL002 Endif Next INTEGER002 = INTEGER002 + 1 If (INTEGER002 > STRING060) BOOLEAN001 = 1 Else DefColor Cls DispText 128, 0 + 64 PromptStr 571, STRING072, 1, "YyNy", 4 + 8 If (STRING072 == YesChar()) Goto LABEL072 Endif Endif Goto LABEL004 :LABEL077 Goto LABEL002 :LABEL078 DispText 117, 2048 Return :LABEL079 Call STRING052 Wait Goto LABEL002 :LABEL080 INTEGER011 = 7 For STRING029 = 1 To 17 STRING092 = ScrText(1, INTEGER011, 78, 1) AnsiPos 1, INTEGER011 - 1 Print STRING092 Inc INTEGER011 Next AnsiPos 1, INTEGER011 - 2 Print Space(77) + Chr(13) Return :LABEL081 Tokenize STRING071 INTEGER005 = ReadLine(PCBDat(), 195) If (INTEGER005 == -1) Then If (STRING056 == 3) Then KbdStuff STRING071 + Chr(13) + Chr(13) + Chr(13) If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp" Goto LABEL082 Endif If (TokCount() == 1) Then KbdStuff STRING071 + Chr(13) + Chr(13) + Chr(13) + STRING039 + Chr(13) If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp" Goto LABEL082 Endif KbdStuff STRING071 + Chr(13) + Chr(13) + STRING039 + Chr(13) If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp" Endif :LABEL082 If (INTEGER005 == 0) Then If (STRING056 == 3) Then KbdStuff STRING071 + Chr(13) + Chr(13) If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp" Goto LABEL083 Endif If (TokCount() == 1) Then KbdStuff STRING071 + Chr(13) + Chr(13) + STRING039 + Chr(13) If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp" Goto LABEL083 Endif KbdStuff STRING071 + Chr(13) + STRING039 + Chr(13) If (Exist(PPEPath() + PPEName() + String(PcbNode()) + ".tmp")) KbdFile PPEPath() + PPEName() + String(PcbNode()) + ".tmp" Endif :LABEL083 STRING103 = " <<THT>> Compressed PPE / Max (c) THT SoftWare 1994 " Endif Endif Endif Endif Endif :LABEL084 ;------------------------------------------------------------------------------ ; ; Usage report (before postprocessing) ; ; ■ Statements used : ; ; 2 End ; 14 Cls ; 13 ClrEol ; 9 Wait ; 328 Goto ; 372 Let ; 243 Print ; 58 PrintLn ; 242 If ; 14 DispFile ; 3 Input ; 1 FCreate ; 10 FOpen ; 3 FAppend ; 24 FClose ; 64 FGet ; 2 FPut ; 18 FPutLn ; 1 StartDisp ; 10 Hangup ; 2 PutUser ; 12 DefColor ; 9 Delete ; 1 DelUser ; 2 AdjTime ; 2 Log ; 26 InputStr ; 3 InputYN ; 15 Gosub ; 4 Return ; 6 PromptStr ; 17 Delay ; 45 Inc ; 5 Newline ; 7 Newlines ; 6 Tokenize ; 20 GetToken ; 10 DispText ; 8 KbdStuff ; 2 Call ; 6 KbdFile ; 1 WaitFor ; 6 RdUNet ; 6 WrUNet ; 313 AnsiPos ; 26 FreshLine ; 1 Message ; 1 SaveScrn ; 1 RestScrn ; 9 Sound ; 1 Chat ; 2 PageOn ; 2 Copy ; 1 GetAltUser ; ; ; ■ Functions used : ; ; 7 - ; 484 + ; 5 - ; 193 == ; 19 <> ; 18 < ; 10 <= ; 13 > ; 30 >= ; 149 ! ; 48 && ; 29 || ; 5 Len( ; 8 Upper() ; 7 Left() ; 9 Right() ; 13 Space() ; 6 Ferr() ; 226 Chr() ; 2 InStr() ; 2 Random() ; 6 Date() ; 3 Time() ; 4 U_Name() ; 8 NoChar() ; 32 YesChar() ; 3 Replace() ; 229 Strip() ; 2 Inkey() ; 20 String() ; 5 Mask_Pwd() ; 18 Mask_Ascii() ; 13 PCBDat() ; 61 PPEPath() ; 32 PcbNode() ; 13 ReadLine() ; 19 Exist() ; 6 S2I() ; 1 GetY() ; 2 Psa() ; 32 PPEName() ; 10 TokCount() ; 1 U_RecNum() ; 4 ScrText() ; 1 ErrCorrect() ; ;------------------------------------------------------------------------------ ; ; Analysis flags : WRDABCdH ; ; W - Write user ■ 5 ; Program writes a user record. Although this may be normal for a ; User Editor, it may also be a way to modify an account level. ; ■ Search for : PUTUSER ; ; R - Read user ■ 5 ; User records are read, this may signify that someone wants to get ; various informations about a user (for example his password), but ; this may also be normal for a program accessing user records (for ; example a User Editor) ; ■ Search for : GETALTUSER ; ; D - Delete user ■ 5 ; Program is deleting account(s)... Check! ; ■ Search for : DELUSER ; ; A - Adjust online time remaining ■ 5 ; Program modify the amount of online time remaining, this may ; be a way to bypass time limits ; ■ Search for : ADJTIME ; ; B - Brute hangup ■ 1 ; Program hangup without notification. This may be a good way to ; disconnect a user, but if used randomly, may be very nasty ; ■ Search for : HANGUP, DTROFF ; ; C - Call child PPE ■ 3 ; This is usually normal, but may be a tricky way to launch some ; sysop-only commands. ; ■ Search for : CALL ; ; d - Access PCBOARD.DAT ■ 2 ; Program gets the full pathname to PCBOARD.DAT, this may be usefull ; for many PPE so they can find various informations on the system ; (system paths, max number of lines in messages, ...) but it may also ; be a way to gather vital informations. ; ■ Search for : PCBDAT() ; ; H - Read Password or Password History ■ 5 ; Program is reading the user's password or last password history ; This may be ok for a password manager, but it is very suspect. Check! ; ■ Search for : U_PWDHIST, U_PWD ; ;------------------------------------------------------------------------------ ; ; Postprocessing report ; ; 10 For/Next ; 1 While/EndWhile ; 107 If/Then or If/Then/Else ; 2 Select Case ; ;------------------------------------------------------------------------------ ; AEGiS Corp - Break the routines, code against the machines! ;------------------------------------------------------------------------------